home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / e / yaec.lha / examples / bla_lib_test.e < prev    next >
Text File  |  2001-08-12  |  266b  |  17 lines
  1.  
  2. -> test a libraryfunction in bla.library
  3.  
  4. MODULE '*bla_lib'
  5.  
  6. DEF blabase
  7.  
  8. RAISE "LIB" IF OpenLibrary()=NIL
  9.  
  10. PROC main()
  11.    blabase := OpenLibrary('e:examples/bla.library', 0)
  12.    Func3() -> call a function
  13. EXCEPT DO
  14.    IF blabase THEN CloseLibrary(blabase)
  15. ENDPROC
  16.  
  17.